A New Shape Subroutine for 

the Apple 



Athletes pole-vault, race cars spin, 
and fighter planes fire at enemy air- 
craft. Is this the real world? No, I'm 
talking about fast, smooth animation 
on the Apple II high-resolution 
graphics screen. In the past year, 
dozens of new Apple II programs 
have achieved such awesome anima- 
tion capabilities that several years ago 
most Apple programmers would 
scarcely have believed them possible. 
After trying unsuccessfully to match 
the quality of the commercially pro- 
duced animation in my own assem- 
bly-language programs, I realized 
that the problem stemmed from the 
standard Apple shape subroutine 
that I was using to display the shapes 
I wanted to animate. 

Standard Hi-Res Package 

The hi-res (high-resolution) 
graphics package I was using is the 
standard package supplied by Apple 
Computer. It once was supplied with 
all Apple II computers sold, and it 
can now be found on the volume 3 
disk of the Apple Software Bank 
Contributed Programs, available from 
Apple dealers. Indeed, this package 
was eventually incorporated into the 
Applesoft language to add hi-res 
commands. Written in machine 
language, the package includes 
subroutines to clear the screen, plot 
a point, draw a line, and draw a 
shape on the hi-res screen. Although 
the clear, plot, and line subroutines 
work well in animation, the shape 
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subroutine is much too slow to allow 
shapes to move across the screen 
quickly, smoothly, and without 
flickering. 

The speed of the shape subroutine 
is the most important factor in anima- 
tion for two main reasons. First, the 
speed with which the subroutine can 
plot the shape, erase it, and plot it 
again in its next position limits how 
fast any shape can move across the 
screen. Second, in a typical anima- 
tion scheme, a shape moves from one 
position to the next in four phases, 
which correspond to the time re- 
quired to plot the shape, the time the 
shape remains on the screen, the 
time required to erase the shape, and 
the time that the shape is not on the 
screen at all. These four phases 
repeat each time a shape moves to a 
new position. The time spent during 
each phase of the process determines 
how fast the shape moves and how 
smooth and flicker-free the animation 
looks. To maximize the smoothness, 
the time used in plotting the shape, 
erasing the shape, and leaving the 
shape off the screen must be 
minimized, for the human eye 
perceives these phases as con- 
tributing to the flicker of the image. 
On the other hand, if the amount of 
time the eye sees the image whole on 
the screen is significantly greater 
than the time required for the other 
phases, the image appears to move 
smoothly across the screen. Minimiz- 
ing the time the image is totally off 



the screen is not difficult, for all 
calculations for the next plot can be 
done while the image is on the 
screen; when the image is erased, it 
can then be immediately plotted in 
the new position. The times required 
to plot and erase the shape, however, 
are directly determined by the speed 
of the image subroutine. If the sub- 
routine is slow, the plot and erase 
times are long, and the image ap- 
pears to flicker as it moves across the 
screen. 

Representing Shapes 

To understand why the standard 
Apple shape subroutine is too slow 
for most animation purposes, you 
must know how the subroutine 
works and especially how it expects 
a shape to be represented in memory. 
A shape is represented by a series of 
vectors in memory, with each vector 
specifying if a given pixel should be 
turned on. It also specifies which of 
the four adjacent pixels should be ad- 
dressed by the next vector. This 
scheme best suits the representation 
of simple, single-line shapes such as 
those in figure 1. Unfortunately, if a 
shape must be filled in or if the shape 
has any detail drawn within its boun- 
daries, as in figure 2, the shape's 
representation is awkward and inef- 
ficient at best. In these cases it is 
often necessary to overplot points 
and use many vectors that specify 
motion without plotting. Moreover, 
if the shape is large, the sheer size of 
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ed in memory by a series of vectors, these simple single-line closed shapes are suitable for display 
on the hi-res graphics screen. 



the vector table becomes unwieldy. 
When the time comes to plot these 
shapes, the subroutine steps through 
the table, and each vector takes up a 
certain amount of time. If the vector 
table represents the shape inefficient- 
ly, the end result is wasted time in the 
plotting of the shape. 

Similarly contributing to the slow 
speed of the shape subroutine is the 
inclusion of scaling and rotation fac- 
tors. In order to plot a shape, a call- 
ing routine must specify a scaling fac- 
tor that determines the plotted 
shape's size (actual size, double size, 
triple size, etc.) and a rotation factor 
that determines the angle through 
which the shape is rotated before 



plotting. Although these factors are 
useful in some applications, using 
them with shape animation rarely 
produces satisfying results, and these 
calculations slow the subroutine 
considerably. 

A New Shape Subroutine 

After realizing that the speed bot- 
tleneck in my programs was caused 
by the shape subroutine, I went 
about designing my own subroutine 
with two criteria in mind. First, the 
subroutine had to be high speed to 
minimize image flicker, and second, 
the method of representing a shape 
in memory had to allow complicated 
images to be plotted as quickly as 



simple single-line shapes of the same 
overall size. One way to meet these 
criteria is to use a bit picture to repre- 
sent the shape in memory. In other 
words, the shape is represented in 
main memory in the same form in 
which it is ultimately represented in 
the hi-res screen memory when the 
shape is plotted on the hi-res screen. 
Plotting the shape is then simple and 
fast: the bytes representing the shape 
in main memory need only be 
transferred to the hi-res screen 
memory. I used this technique in 
writing a fast shape subroutine 
suitable for animation. 

The table of bytes that make up the 
bit picture is called the shape table. 
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Figure 2: The detail within these shapes makes their representation as vectors in memory inefficient; therefore, the standard Apple shape 
subroutine is neither well suited nor easy to use for the display of these shapes on the hi-res screen. 
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0001111 
0010100 
0100100 
1 0001 00 

1111111 




(3c) niiooo oooom 

0010100 0000100 

0010010 0000010 

0010001 0000001 

1111111 0000000 



(3d) 78 07 

14 04 

12 02 

1 1 01 

7F 00 



Figure 3: To form a shape table, start by draw- 
ing the desired shape on graph paper, using 
Is and Os to represent "on" and "off" pixels 
(3a). Next, split each line of bits into 7-bit 
groups, padding the last group of each line 
with Os if necessary (3b). Then, reverse the 
order of the binary digits in each 7-bit group 
(3c) and convert to hexadecimal (3d). Later 
you must add height and width bytes as 
described in the text. 



A shape table is most easily formed 
through the use of the shape-editor 
program presented later in this arti- 
cle. To form a shape table manually, 
start by drawing the shape on a piece 
of graph paper with one pixel per 
square, as in figure 3a. Use Is to 
represent on pixels and Os to repre- 
sent off pixels. Draw the smallest 
possible rectangle that still encloses 



Listing 1: A fast shape subroutine that plots high-resolution shapes on the Apple II. 



0000: 

1B00: 

1S00: 

1B00: 

1B00: 

1B00: 

1B00: 

1B00: 

1B00: 

1B00: 

1B00: 

1B00: 

1BO0: 

1800: 

1B00: 

1B00: 

1B00: 

1B00: 

1B00: 

1B00: 

1B00: 

1BO0: 

1B00: 

1B00: 

1B00: 

1B00: 

1B00: 

1B00: 

1B00: 

1B02: 

1B03: 

1B04: 

1B05: 

1B06: 

1B07: 

1B08: 

1B09: 

1B0A: 

1B0C: 

1B0E: 

1B0F: 

1B11: 

1B13: 

1B15: 

1B17: 

1B19: 

181A: 

1B1C: 

1B1E: 

1B1E: 

1B1E: 

1B1E: 

1B1E: 

1B1E: 

1B20: 

1B22: 

1B23: 

1825: 

1827: 

1B28: 

1B2A: 

13 2C : 

1B2D: 

1B2F: 

132F: 

1B2F: 

132F: 

1B2F: 

1331 : 

1833: 

1333: 

1B33: 

1333 : 

1B35: 

1B37: 

1B38: 

1339: 

1B3B: 

1B3D: 

1B3F: 

1B3F: 

133F: 

133F: 

1B41: 

1B43: 

1844: 

1346: 

1B47: 

1B48: 

1B4A: 



85 E3 

8A 

OA 

AA 

98 

2A 

A8 

18 

8A 

69 83 
85 ED 
98 

69 IB 
85 EE 
AO 00 
Bl ED 
85 EF 
C8 

Bl ED 
85 F9 



A5 E3 
AO 00 
18 

71 EB 
85 FD 
C8 

Bl EB 
85 FB 

C8 

84 FC 



A6 FB 
A4 FC 



Bl EB 
95 19 
C8 
CA 

DO F8 
86 19 
84 FC 



A4 F9 
FO 16 
18 

A6 FB 

08 

28 

35 19 
2A 



OBJ $1800 

ORG $1B00 ; ASSEMBLY LOCATION 

********************************************************* 

* SHAPE SUBROUTINE WRITTEN BV RICHARD T. SIMONI, JR. * 

* * 

* SHAPE WORKS BY STEPPLNG THROUGH THE USER TABLE ONE * 

* HI-RES LINE AT A TIrfE, SHIFTING THE BIT PATTERN THE * 

* APPROPRIATE NUMBER OF TIMES (DEPENDING ON THE * 

* X-COORDINATE PASSED IN THE X- AND Y-REGISTERS) , AND * 

* MOVING THE PATTERN TO THE PROPER PLACE IN THE HI-RES * 

* SCREEN MEMORY. * 
********************************************************* 



13 


STARTZ 


EQU 


$19 


START OF LINE STORAGE 


14 


YCOORD 


EQU 


$E3 


LINE COUNTER 


15 


START 


EQU 


$EB 


USER TABLE POINTER 


16 


ADDRL 


EQU 


$ED 


1ST SCREEN BYTE TO USE 


17 


ADDRH 


EQU 


$EE 


IN LINE YCOORD 


18 


ADDRADD 


EQU 


$EF 


OFFSET FROM LEFT BYTE 


19 


SHFTNUM 


EQU 


$F9 


NUMBER OF SHIFTS 


20 


ENDLN 


EQU 


$FD 


LAST LINE + 1 


21 


WIDTH 


EQU 


$FB 


WIDTH OF USER TABLE 


22 


INDEX 


EQU 


$FC 


POINTER IN USER TABLE 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 

72 * 

73 LOOP2 
74 



DIVIDE X-COORD BY 7 TO GET BYTE OFFSET FROM LEFTMOST 
BYTE IN ANY HI-RES LINE. REMAINDER WILL BE CORRECT 
NUMBER OF SHIFTS TO PERFORM ON BIT PATTERN. 
DIVISION IS PERFORMED USING LOOKUP TABLE FOR SPEED . 

; STORE Y-COORD (COUNTER) 



MULTIPLY X-COORD BY TWO 

A-REG = X-COORD*2 LO-BYTE 
ADD TABLE ADDRESS LO-BYTE 
STORE RESULT 

A-REG - X-COORD*2 HI-BYTE 
ADD TABLE ADDRESS HI-BYTE 
STORE RESULT 
ZERO Y-REG FOR INDEXING 
LOAD X-COORD/7 FROM TABLE 
ADDRADD = X-COORD/7 
REMAINDER FOLLOWS IN TABLE 
LOAD REMAINDER FROM TABLE 
SHFTNUM = REMAINDER 



INITIALIZE LOCATIONS ENDLN AND WIDTH. ENDLN CONTAINS 
THE Y-COORD OF THE LAST LINE + 1. WIDTH CONTAINS THE 
WIDTH (IN BYTES) OF EACH LINE. 



LDA YCOORD 
LDY #$00 
CLC 

ADC (START) ,Y 
STA ENDLN 
I NY 

LDA (START) ,Y 
STA WIDTH 
I NY 

STY INDEX 



STA 


YCOORD 


TXA 




ASL 


A 


TAX 




TYA 




ROL 


A 


TAY 




CLC 




TXA 




ADC 


#>QUOTBL 


STA 


ADDRL 


TYA 




ADC 


#<QUOTBL 


STA 


ADDRH 


LDY 


#$00 


LDA 


( ADDRL) ,Y 


STA 


ADDRADD 


INY 




LDA 


(ADDRL) ,Y 


STA 


SHFTNUM 



; ENDLN = Y-COORD+LENGTH 



;GET & STORE WIDTH 



LOOP1 IS THE LOOP THAT IS CYCLED THROUGH ONCE FOR EACH 
LINE ON THE HI-RES SCREEN 



LOOP1 



LDX WIDTH 
LDY INDEX 



;X-REG=0 (COUNTER ) 



* MOVE BYTES FOR LINE YCOORD FROM USER TABLE TO ZERO PAGE 



LDA (START) ,Y 
STA STARTZ, X 
INY 
DEX 

BNE LOOP2 
STX STARTZ 
STY INDEX 



;3ET XTH BYTE OF LINE 
;STORE IN STARTZ+X 



75 
76 
77 
78 
79 

80 * 

81 * SHIFT THE BIT PATTERN SHFTNUM TIMES 

82 * 

83 LDY SHFTNUM 

84 BEQ SKIP 

85 LOOP3 CLC 

86 LDX WIDTH 

87 PHP 

88 LOOP4 PLP 

89 LDA STARTZ, X 

90 ROL A 



;MOVED ALL BYTES YET? 
;NO, LOOP 
; STARTZ=0 



;IS SHF TNUM=0 ? 
;YES, SKIP THE SHIFTING 
;NO, START SHIFTING 

; KEEP STACK IN ORDER 
; RESTORE CARRY 
; LOAD ORIGINAL PATTERN 



Listing 1 continued on page 300 



the entire figure. Then split each line 
of binary digits enclosed by the rec- 
tangle into 7-bit groups. If, as in 
figure 3b, the last group doesn't have 
a full 7 bits, add enough Os to the end 
of each line to bring the total up to 
7 bits. Due to limitations to the 
subroutine, no more than seven 7-bit 
groups per line are allowed. Reverse 
the order of the bits in each group, 
as shown in figure 3c. Convert each 
new 7-bit group into its hexadecimal 
or decimal equivalent, whichever is 
preferred (figure 3d shows the hex- 
adecimal equivalent) and, reading 
across each line left to right from the 
top to the bottom line, recopy the list 
of numbers in table (linear) form. The 
table is now complete except for two 
bytes that belong at the top of the 
table. The first of these bytes 
represents the height of the shape- 
in other words, the number of lines 
of digits in figure 3b; the second byte 
represents the width of the shape in 
7-bit groups— that is, the number of 
7-bit groups used in each line in 
figure 3b. As previously mentioned, 
this width should be no more than 
seven groups. The complete table in 
hexadecimal form for the sample 
shape used in figure 3 is as follows: 

05 02 78 07 14 04 12 02 
11 01 7F 00 

The shape subroutine itself is 
shown in listing 1, and the lookup 
tables used by the subroutine are 
shown in listing 2. Before calling the 
subroutine, several registers and 
memory locations must be set up 
with certain parameters, including 
the hi-res screen coordinates of the 
pixel where the upper left corner of 
the bit picture should be positioned. 
The low-order byte of the in- 
coordinate should be placed in the X 
register, and the corresponding high- 
order byte of the x-coordinate (either 
1 or 0) goes in the Y register. The y- 
coordinate goes in the A register (ac- 
cumulator). The low- and high-order 
bytes of the shape-table starting ad- 
dress should be stored in hexadeci- 
mal memory locations EB and EC, 
respectively. The subroutine can then 
be called with the usual JSR instruc- 
Text continued on page 303 
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Listing 1 continued: 



1B4B : 


2A 






91 






ROL 


A 


; ROTATE LEFT TWICE 


1B4C: 


08 






92 






PHP 




;SAVE CARRY 


1B4D: 


4A 






93 






LSR 


A 


;SHIFT RIGHT ONCE 


1B4E: 


95 


19 




94 






STA 


STARTZ , X 


; STORE SHIFTED PATTERN 


1BS0: 


CA 






95 






DEX 






1B51 : 


EO 


FF 




96 






CPX 


#$FF 


; ROTATED EACH BYTE? 


1B53 : 


DO 


F2 




97 






BNE 


LOOP4 


;NO, LOOP 


1B55: 


28 






98 






PLP 




; KEEP STACK IN ORDER 


1B56: 


88 






99 






DEY 






1B57: 


DO 


EA 




100 






BNE 


LOOP3 


;LOOP IF YOO 


1B59: 








101 


* 










1B59: 








102 


* CALCULATE HI-RES SCREEN 


ADDRESS FOR FIRST BYTE TO 


1B59: 








103 


* BE USED 


IN LINE YCOORD 




1B59: 








104 


* 










1B59: 


A4 


E3 




105 


SKIP 




LDY 


YCOORD 




1B5B : 


B9 


B3 


ID 


106 






LDA 


LOSTRT, Y 




1B5E: 


18 






107 






CLC 






1B5F : 


65 


EF 




108 






ADC 


ADDRADD 




1B61 : 


85 


ED 




109 






STA 


ADDRL 




1B63 : 


B9 


73 


IE 


110 






LDA 


HISTRT, Y 




1B66: 


69 


00 




111 






ADC 


#$00 




1B68: 


85 


EE 




112 






STA 


ADDRH 


(GET ADDR FOR 1ST BYTE 


1B6A: 








113 


* 










1B6A: 








114 


* MOVE 


SHIFTED BYTES FROM 


ZERO PAGE TO HI-RES SCREEN 


1B6A: 








115 


* MEMORY. 


FOR NON-EXCLUSIVE-OR PLOTTING, CHANGE 


1B6A: 








116 


* ' EOR 


( ADDRL) , Y' TO 'ORA 


(ADDRL) ,Y' (OPCODE $11) . 


1B6A: 








117 


* 










1B6A: 


AO 


00 




118 






LDY 


#$00 




1B6C: 


A6 


FB 




119 






LDX 


WIDTH 




1B6E: 


B5 


19 




120 


L00P5 




LDA 


STARTZ ,X 




1B70: 


51 


ED 




121 






EOR 


(ADDRL) ,Y 




1B72 : 


91 


ED 




122 






STA 


( ADDRL) ,Y 


;PLOT BYTE ON SCREEN 


1B74: 


C8 






123 






I NY 






1B75: 


CA 






124 






DEX 






1B76: 


EO 


FF 




125 






CPX 


#$FF 


; THROUGH PLOTTING LINE? 


1378: 


DO 


F4 




126 






BNE 


LOOP5 


;NO, LOOP 


1B7A: 


E6 


E3 




127 






INC 


YCOORD 


;YES, GO TO NEXT LINE 


1B7C: 


A5 


E3 




128 






LDA 


YCOORD 




1B7E: 


C5 


FD 




129 






CMP 


ENDLN 


; MORE LINES? 


1B80: 


DO 


AD 




130 






BNE 


LOOP1 


;YES, LOOP 


1B82 : 


60 






131 






RTS 




;NO, RETURN 


1B83: 








132 


3U0T8L 




EQU 


* 




1B83: 








133 


LOSTRT 




EQU 


*+560 




1B83: 








134 


HISTRT 




EQU 


* + 752 





*** SUCCESSFUL ASSEMBLY : NO ERRORS 



Listing 2: Lookup tables used by the listing 1 subroutine. 



1B83- 


00 


00 


00 


01 


00 


02 


00 


03 


00 


04 


00 


05 


00 








1B90- 


06 


01 


00 


01 


01 


01 


02 


01 


03 


01 


04 


01 


05 


01 


06 


02 


1BA0- 


00 


02 


01 


02 


02 


02 


03 


02 


04 


02 


05 


02 


06 


03 


00 


03 


1BB0- 


01 


03 


02 


03 


03 


03 


04 


03 


05 


03 


06 


04 


00 


04 


01 


04 


1BC0- 


02 


04 


03 


04 


04 


04 


05 


04 


06 


05 


00 


05 


01 


05 


02 


05 


1BD0- 


03 


05 


04 


05 


05 


05 


06 


06 


00 


06 


01 


06 


02 


06 


03 


06 


1BE0- 


04 


06 


05 


06 


06 


07 


00 


07 


01 


07 


02 


07 


03 


07 


04 


07 


1BF0- 


05 


07 


06 


08 


00 


08 


01 


08 


02 


08 


03 


08 


04 


08 


05 


08 


1C00- 


06 


09 


00 


09 


01 


09 


02 


09 


03 


09 


04 


09 


05 


09 


06 


OA 


1C10- 


00 


OA 


01 


OA 


02 


OA 


03 


OA 


04 


OA 


05 


OA 


06 


OB 


00 


OB 


1C20- 


01 


OB 


02 


OB 


03 


OB 


04 


OB 


05 


OB 


06 


OC 


00 


OC 


01 


OC 


1C30- 


02 


OC 


03 


OC 


04 


OC 


05 


OC 


06 


OD 


00 


OD 


01 


OD 


02 


OD 


1C40- 


03 


OD 


04 


OD 


05 


OD 


06 


OE 


00 


OE 


01 


OE 


02 


OE 


03 


OE 


1C50- 


04 


OE 


05 


OE 


06 


OF 


00 


OF 


01 


OF 


02 


OF 


03 


OF 


04 


OF 


1C60- 


05 


OF 


06 


10 


00 


10 


01 


10 


02 


10 


03 


10 


04 


10 


05 


10 


1C70- 


06 


11 


00 


11 


01 


11 


02 


11 


03 


11 


04 


11 


05 


11 


06 


12 


1C80- 


00 


12 


01 


12 


02 


12 


03 


12 


04 


12 


05 


12 


06 


13 


00 


13 


1C90- 


01 


13 


02 


13 


03 


13 


04 


13 


05 


13 


06 


14 


00 


14 


01 


14 


1CA0- 


02 


14 


03 


14 


04 


14 


05 


14 


06 


15 


00 


15 


01 


15 


02 


15 


1CB0- 


03 


15 


04 


15 


05 


15 


06 


16 


00 


16 


01 


16 


02 


16 


03 


16 


1CC0- 


04 


16 


05 


16 


06 


17 


00 


17 


01 


17 


02 


17 


03 


17 


04 


17 


1CD0- 


05 


17 


06 


18 


00 


18 


01 


18 


02 


18 


03 


18 


04 


18 


05 


18 


1CE0- 


06 


19 


00 


19 


01 


19 


02 


19 


03 


19 


04 


19 


05 


19 


06 


1A 


1CF0- 


00 


1A 


01 


1A 


02 


1A 


03 


1A 


04 


1A 


05 


1A 


06 


IB 


00 


IB 


1D00- 


01 


IB 


02 


IB 


03 


IB 


04 


IB 


05 


IB 


06 


1C 


00 


1C 


01 


1C 


1D10- 


02 


1C 


03 


1C 


04 


1C 


05 


1C 


06 


ID 


00 


ID 


01 


ID 


02 


ID 


1D20- 


03 


ID 


04 


ID 


05 


ID 


06 


IE 


00 


IE 


01 


IE 


02 


IE 


03 


IE 


1D30- 


04 


IE 


05 


IE 


06 


IF 


00 


IF 


01 


IF 


02 


IF 


03 


IF 


04 


IF 


1P40- 


05 


IF 


06 


20 


00 


20 


01 


20 


02 


20 


03 


20 


04 


20 


05 


20 


1D50- 


06 


21 


00 


21 


01 


21 


02 


21 


03 


21 


04 


21 


05 


21 


06 


22 


1D60- 


00 


22 


01 


22 


02 


22 


03 


22 


04 


22 


05 


22 


06 


23 


00 


23 


1D70- 


01 


23 


02 


23 


03 


23 


04 


23 


05 


23 


06 


24 


00 


24 


01 


24 


1D80- 


02 


24 


03 


24 


04 


24 


05 


24 


06 


25 


00 


25 


01 


25 


02 


25 


1D90- 


03 


25 


04 


25 


05 


25 


06 


26 


00 


26 


01 


26 


02 


26 


03 


26 


1DA0- 


04 


26 


05 


26 


06 


27 


00 


27 


01 


27 


02 


27 


03 


27 


04 


27 


1DB0- 


05 


27 


06 


00 


00 


00 


00 


00 


00 


00 


00 


80 


80 


80 


80 


80 


1DC0- 


80 


80 


80 


00 


00 


00 


00 


00 


00 


00 


00 


80 


80 


80 


80 


80 


1DD0- 


80 


80 


80 


00 


00 


00 


00 


00 


00 


00 


00 


80 


80 


80 


80 


80 


1DE0- 


80 


80 


80 


00 


00 


00 


00 


00 


00 


00 


00 


80 


80 


80 


80 


80 


1DF0- 


80 


80 


80 


28 


28 


28 


28 


28 


28 


28 


28 


A8 


A8 


A8 


A8 


A8 


1E00- 


A8 


A8 


A8 


28 


28 


28 


28 


28 


28 


28 


28 


A8 


A8 


A8 


A8 


A8 


1E10- 


A8 


A8 


A8 


28 


28 


28 


28 


28 


28 


28 


28 


A8 


A8 


A8 


A8 


A8 


1E20- 


A8 


A8 


A8 


28 


28 


28 


28 


28 


28 


28 


28. 


A8 


A8 


A8 


A8 


A8 


1E30- 


A8 


A8 


A8 


50 


50 


50 


50 


50 


50 


50 


50 


DO 


DO 


DO 


DO 


DO 


1E40- 


DO 


DO 


DO 


50 


50 


50 


50 


50 


50 


50 


50 


DO 


DO 


DO 


DO 


DO 
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(la) 




Coordinate 


6502 Register 


x low-order byte 


X 


x high-order byte 


Y 


y 


A 


(lb) 




Address Byte 


Memory Location 


low-order byte 


EB 


high-order byte 


EC 


Table 1: Summary 


of parameters that 


must be set up prior to calling the shape 


subroutine: coordinates of upper left cor- 


ner of bit picture (la) and starting address 


(hexadecimal) of shape table (lb). 



Listing 2 continued: 



Text continued from page 298: 

tion. A summary of the parameter 
setup is given in table 1. 

The subroutine works by taking the 
exclusive-OR of each affected bit in 
page-1 hi-res screen memory with the 
corresponding bit of the bit picture. 
This exclusive-OR plotting has 
several advantages. First, a color need 
not be specified; the shape is drawn 
by calling the subroutine once and is 
erased by simply calling it again with 
the same screen coordinates. Second, 
any shape drawn using exclusive-OR 
plotting is nondestructive; that is, 
whatever the shape happens to plot 
over is restored when the shape is 
erased. This property can be used to 
form interesting backgrounds that 
need not be redrawn after shapes are 
plotted and moved on top of them. 
Cross-hair cursors are also free to 
move around without destroying the 
screen's previous contents. 

Several details about the subrou- 
tine need to be explained. Zero page 
(hexadecimal locations 00 through 
FF) of memory is used for temporary 
storage; the particular locations used 
were chosen to avoid destruction of 
locations used by the Apple Monitor, 
Applesoft, Integer Basic, and the 
DOS (disk operating system). The 
subroutine does not operate correct- 
ly without the tables shown in listing 
2. These tables may be stored any- 
where in memory, but are best 
located immediately after the sub- 
routine in memory. Three pertinent 
Text continued on page 306 



1 E 50— 




DO 


DO 


50 


50 


50 


50 


50 


50 


50 


50 


DO 


DO 


DO 


DO 


DO 


1 E60- 


DO 






50 


5 


50 


50 


50 


50 


50 


50 


DO 


DO 


DO 


DO 


DO 


1 E 70— 




DO 


DO 


20 


2 4 


28 


2C 


30 


34 


38 


3C 


20 


24 


28 


2C 


30 


1 E8 — 


3 4 


3 8 


3C 


2 1 


2 5 


29 


2D 


31 


35 


39 


3D 


21 


25 


29 


2D 


31 


1 E 90 — 


3 5 


■* Q 


3 D 


2 2 


2 6 


2A 


2E 


3 2 


36 


3A 


3E 


22 


26 


2A 


2E 


32 


1EA0- 


3 6 


3 A 


3E 




2 7 


2B 


2F 


33 


37 


3B 


3F 


23 


27 


28 


2F 


33 


1 EB0- 


3 7 


3B 


3F 


20 


2 4 


28 


2C 


30 


34 


38 


3C 


20 


24 


28 


2C 


30 


1EC0- 


34 


38 


3C 


2 1 


2 5 


2 9 




3 1 


3 5 


39 


3D 


2 1 


2 5 


29 


2D 


31 


1ED0- 


3 5 


39 


3D 


2 2 


26 


2 A 


2F 


3 2 


3 6 


3 A 


3E 


22 


26 


2A 


2E 


32 


1EE0- 


36 


3A 


3E 


23 


27 


2B 


2 F 




3 7 


3B 


3F 


2 3 


2 7 


2B 


2F 


3 3 


1EF0- 


37 


3B 


3F 


20 


24 


28 


2C 


30 


34 


38 


3C 


20 


24 


28 


2C 


30 


1F00- 


34 


38 


3C 


21 


25 


29 


2D 


31 


35 


39 


3D 


21 


25 


29 


2D 


31 


1F10- 


35 


39 


3D 


22 


26 


2A 


2E 


32 


36 


3A 


3E 


22 


26 


2A 


2E 


32 


1P20- 


36 


3A 


3E 


23 


27 


2B 


2F 


33 


37 


3B 


3F 


23 


27 


2B 


2F 


33 


1F30- 


37 


3B 


3F 



























Listing 3: This shape-editor program forms a shape table directly from a high-resolution screen 
image. 



100 TEXT : HOME : POKE - 16298,0: POKE 
110 RESTORE : FOR I = 768 TO 774: READ J 

3,3: DATA 1,0,3,0,45,5,0 
120 DIM S% (105) ,T% (212) 

130 XMAX = 42:YMAX = 35: ML = 101: MT = 10 
140 H$ = "0123456789ABCDEF" 
150 D$ = CHR$ (4) 

160 GOSUB 3100: GOSUB 3300: GOSUB 3400 
REM SHOW CURSOR POSITION ON GRID 
XDRAW 1 AT CL + 1,CT + 3 
REM WAIT FOR KEYBOARD COMMAND 
430 Q = PEEK ( - 16384): IF Q < 128 THEN 430 
440 POKE - 16368, : Q = Q - 128 
REM 

REM CURSOR MOVEMENT COMMANDS 
REM 

IF Q < > ASC ("I") THEN 550 
XDRAW 1 AT CL + 1,CT + 3 
IF Y > 1 THEN Y = Y - 1:CT = CT - 4 
GOTO 410 

IF Q < > ASC ("M") THEN 590 
XDRAW 1 AT CL + 1,CT + 3 

IF Y < YMAX THEN Y = Y + 1 : CT = CT + 4 
GOTO 410 

IF Q < > ASC ("J") THEN 630 
XDRAW 1 AT CL + 1 ,CT + 3 
IF X > 1 THEN X " X - 1:CL = CL - 4 
GOTO 410 

IF Q < > ASC ("K") THEN 700 
XDRAW 1 AT CL + 1,CT + 3 
IF X < XMAX THEN X = X + 1:CL = CL + 4 
GOTO 410 
REM 

REM PLOT COMMAND 
REM 

IF Q < > ASC ("P") THEN 810 
720 ELE = INT ((X - 1 ) / 1 4 ) + 3 * ( Y - 1 ) 
730 BIT = (X - 1) - INT ((X - 1) / 14) * 14 
740 A = INT (S%(ELE) / 2 " BIT) 
750 IF A / 2 < > INT (A / 2) THEN 810 
760 S%(ELE) = S%(ELE) + 2 " BIT 

770 FOR 1=2 TO 4: XDRAW 1 AT CL + 1,CT + I: NEXT I 
HCOLOR= 7: HPLOT 29 + X,62 + Y 
GOTO 430 
REM 

REM ERASE COMMAND 
REM 

IF Q < > ASC ("E") THEN 900 
820 ELE = INT ((X - 1 ) / 1 4 ) + 3 * ( Y - 1 ) 
830 BIT = (X - 1) - INT ((X - 1) / 14) * 14 
840 A = INT (S%(ELE) / 2 " BIT) 
850 IF A / 2 = INT (A / 2) THEN 900 
860 S%(ELE) = S%(ELE) - 2 " BIT 

870 FOR 1=2 TO 4 : XDRAW 1 AT CL + 1,CT + I: NEXT I 
880 HCOLOR= 0: HPLOT 29 + X,62 + Y 
890 GOTO 430 
900 REM 

REM CLEAR SCREEN COMMAND 
REM 

IP < > ASC ("C") THEN 1030 
XDRAW 1 AT CL + 1,CT + 3 

VTAt) 23: PRINT "SURE YOU WANT TO ERASE THE SCREEN?" 
GOSUB 3500 

VTAB 22: CALL - 953: IF Q < > ASC ("Y") THFN 410 
FOR 1=0 TO 105:S*(I) = 0: NEXT 1/ 
GOSUB 3300: GOSUB 3400: GOTO 410 7 
REM 

TABLE COMMAND 



16300,0 

POKE I, J: NEXT I: POKE 232 ,0 : POKET 23 



400 
410 
420 



500 
501 
502 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
700 
701 
702 
710 



780 
790 
800 
801 
802 
810 



901 
902 
910 

920 
930 
940 
950 
960 
970 
1000 
1010 
1020 
1030 
1040 



REM 
REM 
IF Q 



< > ASC ("T") THEN 1520 
VTAB 23: PRINT "SET CURSOR TO TOP LEFT CORNER OF" 
AND HIT RETURN"; 
1050 L5 = 1 



PRINT "DESIRED BIT MAP 
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Listing 3 continued: 



1060 
1070 
1080 

1090 
1100 
1110 
1120 
1130 
1140 



HTAB 1: POKE 50,63: PRINT "ILLEGAL 6 1 
1 TO 2000: NEXT I: VTAB 22: CALL - 95 



1150 
1160 
1170 

1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 

1300 
1310 
1320 
1330 
1340 
1350 

1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 

1480 
1490 
1500 
1510 
1520 
1530 
1600 
1601 
1602 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1800 
1801 
1802 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 



GOTO 430 
PL = X:PT = Y 

VTAB 22: CALL - 958: PRINT : PRINT "SET CURSOR TO BOTTOM RIGHT CORNER OF" 
: PRINT "DESIRED BIT MAP AND HIT RETURN" ; 
L5 = 2 

GOTO 4 30 
PR = X:PB = Y:L5 = 

XDRAW 1 AT CL + 1 ,CT + 3 

VTAB 22: CALL - 958 

IF PL > PR OR PT > PB THEN VTAB 23: 
T MAP CORNERS": POKE 50,255: FOR I = 
8: GOTO 410 
VTAB 23: HTAB 1: PRINT 
FOR I = TO 212:T%(I) 
L = PB - PT + 1:W = (PR 
+ 1 

T% (0) = L:T% ( 1) = W:N = 
FOR Y = PT TO PB 
FOR X = PL TO PL + W * 
IF X > PR THEN BN = 0: GOTO 1250 
ELE = I NT ((X - 1) / 14) + 3 * (Y - 1) 
BIT = (X - 1) - INT ((X - 1),/ 14) * 14 
BN = 0:A = I NT (S%(ELE) / 2 " BIT): IS 

IF BN = 1 THEN T%(N) = T%(N) + 2 * Q 
Q = Q + 1: IF 3 = 7 THEN Q=0:N=N+1 
NEXT X: NEXT Y 
HOME : POKE - 16303,0 

VTAB 2: PRINT "DO YOU WANT TO SEE THE TABLE IN HEX": PRINT 
AL?": PRINT : PRINT 



"NOW FORMING SHAPE TABLE" 
= 0: NEXT I 

/ 7 : IF W < > 



- PL 



1) 



INT (W) THEN W = INT (W) 



2:Q = 



1 



INT (A / 2) < 



A / 2 THEN BN = 1 



OR IN DEC IM 



ASC ("H") THEN 1280 



TAB ( Z * 4);T*(I);: GOTO 1360 



21 THEN POKE 34, PEEK (37) 

PRINT " ON DISK?" 



;N$ 



GOSUB 3500 

IF Q < > ASC ("D") AND Q < 
Z = : FOR I=0TOL*W+l 
Z - Z + 1 

I F Q = ASC ("D") THEN PRINT 

PRINT TAB ( Z * 3); MID$ (H$, INT (T%(I) / 16) + 1,1); MID$ (H$,T*(I) 
NT (T%(I) / 16) * 16 + 1 , 1) ; 
IF Z = 8 THEN Z = 0: PRINT 
NEXT I 

PRINT : PRINT : IF PEEK (37) 

PRINT "DO YOU WANT TO SAVE THE OBJECT TABLE 
GOSUB 3500 

IF Q < > ASC ("Y") THEN 1470 

PRINT : PRINT "WHAT DO YOU WANT TO NAME": INPUT " THE FILE? 
FOR I=0TOL*W+l: POKE 16384 + I,T%(I): NEXT I 
PRINT D$; "BSAVE" ;N$; " , AS4000 , L" ; L * W + 2 
PRINT "FILE SAVED USING NAME ";N$ 
PRINT : PRINT : GOTO 1390 

POKE 34,0: HOME : VTAB 2: PRINT "DO YOU WANT TO RETURN TO THE" 
SCREEN EDIT MODE?" 
GOSUB 3500 

IF Q < > ASC ("Y") THEN 2260 

GOSUB 3100: POKE - 16304,0: GOSUB 3310: GOTO 410 
REM 1 RETURN ' PSEUDO-COMMAND 
IF Q < > 13 THEN 1600 
ON L5 + 1 GOTO 430,1070,1110 
REM 

REM SAVE TABLE COMMAND 
REM 

> ASC ("S") THEN 1800 
AT CL + 1,CT + 3 
INPUT "FILE NAME FOR SAVE? ";N$ 
PRINT "NOW SCANNING IMAGE";: HTAB 1 



Z2 - 1: GOTO 1680 



VTAB 23: PRINT 



IF < 
XDRAW 1 
VTAB 23: 
VTAB 24: 
Zl = 

IF S%(Z1) = AND Zl < 105 THEN Zl = Zl + 1: GOTO 1660 
Z2 - 105 

IF S%(Z2) » AND Z2 > THEN Z2 
IF Zl > Z2 THEN Zl « 0:Z2 = 1 

VTAB 24: PRINT "NOW SAVING IMAGE TO DISK" ; : 
PRINT D$;"OPEN";N$: PRINT D$ ; "WRITE" ; N$ 
PRINT Zl: PRINT Z2 
FOR I = Zl TO Z2 
PRINT S%(I) 
NEXT I 

PRINT D$; "CLOSE" ;N$ 
VTAB 22: CALL - 958: GOTO 410 
REM 

REM LOAD TABLE COMMAND 
REM 

IF Q < > ASC ("G") THEN 2100 
XDRAW 1 AT CL + 1,CT + 3 

VTAB 23: PRINT " SURE YOU WANT TO LOAD?" 
GOSUB 3500 

VTAB 22: CALL - 958: IF Q < > ASC ("Y") THEN 410 
VTAB 23: INPUT "FILE NAME FOR LOAD? ";N$ 
PRINT D$;"OPEN";N$: PRINT D$;"READ";N$ 
INPUT Zl: INPUT Z2 
FOR I = TO Z1:S%(I) = 0: 
FOR I = Zl TO Z2 
INPUT S%(I) 
NEXT I 

PRINT D$ ; "CLOSE" ; N$ 
GOSUB 3300: GOSUB 3400 

VTAB 22: CALL - 958: VTAB 23: PRINT "NOW RETRACING IMAGE ON SCREEN" 
ELE = Z1:BIT = 0:CL - ML + 4 * ( (ELE - INT (ELE / 3) * 3) * 14) 
CT « MT + 4 * INT (ELE / 3) 

A = INT (S%(ELE) / 2 ~ BIT): IF INT (A / 2) - A / 2 THEN 2000 

FOR I = 2 TO 4: XDRAW 1 AT CL + 1 ,CT + I : NEXT I: HPLOT 30 + (CL - ML) / 4 
,63 + (CT - MT) / 4 

Listing 3 continued on page 306 



NEXT I: FOR I = Z 2 TO 105:S%(I) = 0: NEXT I 



Circle 231 on inquiry card. 



Listing 3 continued: 



2000 
2010 

2020 
2030 
2040 
2100 
2101 
2102 
2110 
2120 
2130 
2140 
2150 

2160 
2200 
2201 
2202 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
3000 
3010 
3020 
3100 
3110 
3120 

3130 

3140 

3150 

3160 
3170 
3180 
3190 
3200 
3300 
3310 
3320 

3330 
3340 
3350 
3350 
3400 
3410 
3420 
3430 
3500 
3510 
3520 
9999 



QUIT COMMAND 
( 



"Q") THEN 430 
1 ,CT + 3 

SURE VOU WANT TO QUIT?" 



16303,0: POKE - 16298,0: VTAB 24 



CL = CL + 4:BIT = BIT + 1: -IF BIT < > 14 THEN 1980 

IF ELE > = Z2 THEN GOSUB 3310: GOTO 410 
BIT = : ELE = ELE + 1 

IF ELE / 3 = INT (ELE / 3) THEN CL = ML:CT = CT + 4 

GOTO 1980 

REM 

REM HELP COMMAND 

IF M Q < > ASC ("H") AND Q < > ASC ("/") AND Q < > ASC ("?") THEN 2200 
VTAB 21: CALL - 958: POKE - 16303,0 
GOSUB 3170 J 

VTAB 20: 1 PRINT°: CALL - 958: HTAB 2: PRINT "ACTUAL SIZE";: HTAB 21: PRINT 
"VIEWING WINDOW" 
GOTO 430 
REM 
REM 
REM 

IF Q < > ASC 
XDRAW 1 AT CL + 
VTAB 23: PRINT 
GOSUB 3500 

IF Q < > ASC ("Y") THEN VTAB 22: CALL - 958: GOTO 410 
HOME : POKE 
GOTO 9999 
REM 

REM SUBROUTINES 
REM 
HOME 

HTAB 15: PRINT "COMMAND MENU" 

VTAB 4: PRINT "I,J,K,M"; TAB ( 
( 9 ) ; " PLOT POINT AT CURSOR POSITION" : PRINT 

PRINT "E"; TAB ( 9);"ERASE POINT AT CURSOR POSITION": 
8( 9); "CLEAR SCREEN": PRINT 

PRINT "T"; TAB ( 9);"MAKE SHAPE TABLE" : PRINT : PRINT 
APE SOURCE FILE TO DISK" : PRINT 

PRINT "G"; TAB ( 9); "GET SHAPE SOURCE FILE FROM DISK" 
?"; TAB ( 9);"HELP ( RETURN TO THIS MENU)" 

PRINT : PRINT " Q " ; TAB ( 9 ) ; "QUIT PROGRAM EXECUTION" 

VTAB 24: HTAB 10: PRINT "HIT SPACE TO EXIT MENU"; 

GOSUB 3500: IF Q < > ASC (" " ) THEN 3180 

VTAB 21: CALL - 958 

RETURN 

POKE 230,32: CALL 62450: HGR : SCALE* 1: ROT= 
PT = YMAX + 1:PB = : PL « XMAX + 1 : PR = 

VTAB 21: HTAB 2: PRINT "ACTUAL SIZE";: 
ALL - 958: PRINT 

X » INT (XMAX / 2):Y = INT (YMAX / 2) 
MR = ML + XMAX * 4: MB = MT + YMAX * 4 
CL = ML + (X - 1) * 4:CT = MT + (V - 1) 

RETURN 

HCOLOR= 7 

FOR I = ML TO MR STEP 4 
FOR I = MT TO MB STEP 4 
RETURN 

Q = PEEK ( - 16384) : IF 
POKE - 16368 ,0 : Q = Q - 
RETURN 
END 



HTAB 15: PRINT " — 

9), -"CURSOR MOVEMENT": PRINT 



PRINT "P"; TAB 
PRINT : PRINT "C"; TA 
"S"; TAB ( 9), -"SAVE SH 
PRINT : PRINT "H OR 



HTAB 21: PRINT "VIEWING WINDOW" ; : C 



HPLOT I,MT TO I, MB: NEXT I 
HPLOT ML, I TO MR, I: NEXT I 

Q < 128 THEN 3500 
128 



Text continued from page 303: 
tables are named QUOTBL, LOSTRT, 
and HISTRT. QUOTBL is a lookup 
table used internally by the 
subroutine to divide the x-coordinate 
by 7. LOSTRT and HISTRT are each 
192 bytes long, and they contain the 
low- and high-order bytes of the 
address of the leftmost byte of each 
y-coordinate in page 1 of hi-res screen 
memory. For plotting on page 2 of the 
hi-res memory, a hexadecimal 20 
should be added to each byte in the 
table HISTRT. Although I wanted the 
subroutine to be fully relocatable, I 
compromised this requirement in 
favor of additional speed. However, 
as I have written it, relocating the 
subroutine requires changing only 
the two locations referencing 
QUOTBL in lines 38 and 41 of listing 
1. 



A Note on Color 

One of the most difficult aspects of 
using the Apple high-resolution 
graphics mode is trying to control the 
color of objects displayed on the 
screen. This difficulty arises because 
a color cannot be individually as- 
signed to each pixel on the screen; 
the color depends instead on such 
factors as whether an object is drawn 
with pixels horizontally alternating 
between on and off and whether the 
on pixels have even or odd x-coordi- 
nates. Through careful programming 
and shape-table composition, you 
can control colors in this manner 
using the shape subroutine 
presented in this article. In newer 
Apples, however, two more colors are 
added to the hi-res screen by defin-. 
ing the previously unused high-order 
bit in each word in hi-res screen 



memory. Unfortunately, these colors 
cannot be easily displayed using the 
shape subroutine because the sub- 
routine forces the extra bit in the hi- 
res screen to 0. For a complete 
description of color in the Apple hi- 
res screen, see page 19 of the Apple 
II Reference Manual (Cupertino: Apple 
Computer Inc., 1979). 

The Shape-Editor Program 

Although it is not difficult to form 
the shape table for a given shape, it 
is often time consuming. When writ- 
ing a program that uses shapes, you 
rarely know in advance the exact pix- 
el pattern that makes up the shape. 
Even if you know the pattern, you're 
probably not sure whether the shape 
will look good on the hi-res screen. 
It might take you hours to develop a 
suitable shape if you have to write 
out each trial on graph paper, form 
the shape table, and use the 
subroutine to display the shape 
before you can tell if it is satisfactory. 
This time-consuming method can 
bring the creative process to a halt. 
A more desirable situation would be 
one in which you could easily experi- 
ment with different shapes on the hi- 
res screen until you were satisfied 
with the results and then form the 
shape table directly from the screen 
image. I had this concept in mind 
when writing the shape-editor pro- 
gram shown in listing 3. The program 
features complete hi-res editing, both 
actual size and a blown-up view of 
the shape being drawn, disk storage 
of the current shape (the source file) 
for future editing, and assembly of a 
shape table from any portion of the 
current screen. 

The editor program requires an 
Apple II with 32K bytes of memory, 
a disk drive, and Applesoft in ROM 
(read-only memory). When you run 
the program, the list of commands 
shown in photo 1 comes up on the 
screen. After you press the space bar, 
the left area of the screen becomes 
blank, and a grid appears on the 
right. The blank area is the "slate" on 
which you can draw different shapes 
actual size. Anything drawn also ap- 
pears enlarged on the grid, making 
it easier to see details of the shape. 
Once the grid has been drawn, a 
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Photo 1: The command menu that appears at the beginning of the Photo 2: A view of the screen-edit mode of the shape-editor program, 
shape-editor program (listing 3). This menu also appears whenever The figure on the grid is an enlarged view of the actual-size shape 
the Help key is pressed. on the left side of the screen. The cursor is the small horizontal line 

in a square above the lower left corner of the displayed shape. 



small horizontal line appears in one 
of the small squares in the grid. This 
is the cursor, which always shows the 
current drawing position of the 
program. 

Once the cursor appears on the 
screen, you can execute any of the 
commands listed in the menu (photo 
1) by pressing the corresponding let- 
ter on the keyboard. The letters I, J, 
K, and M are used for moving the 
graphics cursor up, left, right, and 
down, respectively. The Plot com- 
mand plots a point at the current cur- 
sor position, and the Erase command 
erases the point at the current cursor 
position. Neither the Plot nor the 
Erase command causes any harm if 
the command has already been used 
at the cursor position (e.g., if the Plot 



command is used at a position where 
a point already exists). The Clear 
command clears the screen after 
prompting you to verify that the 
screen should indeed be cleared. By 
using the cursor-movement, Plot, 
Erase, and Clear commands, you can 
draw the desired shape on the screen 
and modify it as many times as 
necessary. A shape being drawn in 
this screen-edit mode is shown in 
photo 2. 

With the Table command, you can 
make a shape table from any segment 
of the screen where you have drawn 
a shape. After choosing the Table 
command by pressing the T key, you 
must choose the smallest rectangle 
that encloses the shape; this is the 
same rectangle chosen when forming 



the shape table manually as pre- 
viously described. You specify the 
boundaries of this rectangle by mov- 
ing the cursor to the upper left posi- 
tion of the rectangle and pressing the 
Return key and then doing the same 
for the lower right corner of the rec- 
tangle. The corners are inclusive; that 
is, the rows and columns that contain 
the corners become the outermost 
edges included in the shape table. A 
portion of the rectangle selection pro- 
cess is shown in photo 3. After you 
select the desired rectangle, the pro- 
gram will form the shape table. The 
time this takes (typically 15 to 30 
seconds) depends on the size of the 
shape. The completed shape table is 
displayed on the screen in either 
decimal or hexadecimal form, de- 
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Photo 3: A view of the first step in forming a shape table. The desired 
shape is selected by defining a rectangle enclosing the shape. Here, 
the user has positioned the cursor to the correct position to define 
the upper left comer of the rectangle. 




Photo 4: A view of the screen after the shape-editor program has 
formed the shape table for the shape shown in photo 3. 



pending on how you answer a 
prompt. The program will then save 
this object-file shape table on disk as 
a standard binary file if you so desire. 
You are then asked whether to return 
to the screen-edit mode or end the 
program. Photo 4 shows the final 
shape table formed from the sample 
shape used in photo 3. 

The Save and Get commands let 
you store on disk and later retrieve 
any picture drawn in the screen-edit 
mode. The Save command prompts 
you for a file name and then saves to 
disk a representation of the shape 
drawn on the grid. The Get com- 
mand can then be used to retrieve 
and display the picture as long as the 
saved file remains on disk. Because 
the Get command erases any draw- 



ing previously on the screen, you are 
first asked to confirm that a file is to 
be loaded. Once the picture is re- 
trieved, it can be modified or 
assembled into a shape table just as 
if the picture had been entered using 
the keyboard commands. 

The Help command (executed by 
pressing the H or ? key) returns you 
from the screen-edit mode to the 
menu shown at the beginning of the 
program for a quick command-letter 
check. Pressing the space bar returns 
you to screen-edit mode with the 
contents of the screen unaltered. The 
Quit command ends the program. 
Because any drawing on the screen 
is lost once the program is ended, 
you are asked to confirm the Quit 
directive. 



Summing Up 

Using the techniques and pro- 
grams described in this article, you 
can implement professional-looking 
animation on the Apple without hav- 
ing to work around the limitations of 
the standard Apple shape subrou- 
tine. Although I wrote my shape sub- 
routine with animation in mind, the 
subroutine is useful in any graphics 
applications where detailed shapes 
must be drawn. Using the graphics 
editor as a development tool, virtual- 
ly any shape can be easily displayed 
on the hi-res screen. ■ 
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